DIM hShortArray AS Short[]
DIM aShort AS Short

FOR EACH aShort IN hShortArray
  ...
NEXT

Enumerates each element stored in the array.